home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / dev / basic / PureBasic_Upd.lha / PureBasic_Update1.60 / PureBasic / Examples / Sources / Timer.pb < prev    next >
Encoding:
Text File  |  2000-09-10  |  435 b   |  34 lines
  1.  
  2. ; ***********************************
  3. ;
  4. ;  Timer example file for Pure Basic
  5. ;
  6. ;    © 2000 - Fantaisie Software -
  7. ;
  8. ; ***********************************
  9.  
  10.  
  11.  If InitTimer()
  12.  
  13.    StartTimer()
  14.    calib.l=StopTimer()
  15.  
  16.    For b.l=0 To 5
  17.  
  18.      StartTimer()
  19.  
  20.      For c.l=0 To 999    ; } some delay here
  21.      Next c              ; }
  22.  
  23.      time.l=StopTimer()
  24.  
  25.      PrintNumberN(time-calib)
  26.  
  27.    Next b
  28.  
  29.  EndIf
  30.  
  31.  PrintN("End of Program.")
  32.  End
  33.  
  34.